Family Forum 262/SOMC Family Forum 262.iso/Xtras/Behavior Library.cst/00005_Go to Previous Marker.ls

Text File | 1997-11-17 | 1.2 KB | 53 lines

-- Marker  Go to Previous


--  nav
-- behavior library version 1.1

--  goes to previous marker on author selected event
-- also functions through lingo by handling message 'initGotoPreviousMarker',
-- for example if this behavior was assigned to sprite 5, use
-- sendsprite 5, #initGotoPreviousMarker

property whichEvent

on initGotoPreviousMarker me
  init me
end

on mouseUp me
  if whichEvent = #mouseup    then init me
end

on prepareFrame me
  if whichEvent = #prepareframe then init me
end

on exitFrame me
  if whichEvent = #exitframe  then init me
end

on init me

  go to marker (-1)


end



---

on getPropertyDescriptionList

  set p_list = [     #WhichEvent: [ #comment:  "Initializing Event:",                     #format:   #symbol,                      #range: [ #MouseUp, #PrepareFrame, #ExitFrame, #InitGotoPreviousMarker],                    #default:   #MouseUp ]                  ]
  return p_list

end

on getBehaviorDescription
  return "Moves the Playback Head to the previous marker when the specified event occurs.  Drag to a sprite or a frame in the script channel." && RETURN & "PARAMETERS:" && RETURN & "ΓÇó Initializing Event - Specify the event that triggers the behavior."

end